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Эта брошюра является начальным, но обстоятельным пособием 
для изучения языка Форт (от англ. РОКТН — вперед) и для само¬ 
стоятельной работы на компьютере. Если Вы профессионал и зна¬ 
комы с другими языками программирования, то на время забудьте- 
их. Для работы с системой Форт необходимо знать лишь основы 
программирования. 

Форт — необычный язык программирования. Основной его 
нрйнцип — в простоте. 

Форт — это язык одновременно высокого и низкого уровней, 
набор модулей-инструментов для создания программ и методоло¬ 
гия программирования. 

Форт — это скорость, компактность, мобильность. Он реализо¬ 
ван практически на всех отечественных и зарубежных компьютерах 
и особенно эффективен при разработке ^программ для микропроцес¬ 
соров и микро-ЭВМ. Известно, что Форт сокращает время разра¬ 
ботки программ благодаря модульности и диалогу. 

Форт применяется: 

при разработке трансляторов и операционных систем; 

для управления станками, роботами, медицинским оборудова¬ 
нием; 

в системах управления базами данных; 

в задачах машинной графики; 

р системах искусственного интеллекта. 

Во всем этом есть одна тонкость. Форт дает разнообразные сред¬ 
ства, но возлагает на программиста большую, чем в других языках, 
ответственность за эффективность их использования. 

Программирование на Форте отличается прежде всего тем, что 
Форт — диалоговая система, вся работа на нем выполняется в при- 
• еутствии человека, который должен дать ЭВМ задание и в процес¬ 
се выполнения этого задания может или даже должен вмешивать¬ 
ся в вычисления. 

• Для общения Форт предоставляет человеку возможность вво¬ 
да информации в ЭВМ и получения информации. Обычно в совре¬ 
менных условиях для ввода и вывода используется дисплей — уст¬ 
ройство, по-видимому, уже хорошо известное. Возможность. «раз¬ 
говора с машиной» неопытного человека может испугать: если яс¬ 
но, что машина может написать на экране дисплея вполне понят¬ 
ный текст, то другая часть общения («что же я скажу машине?») 
действительно загадочна. 

- Нужно знать, о чем Вы хотите поговорить с ЭВМ. В языке Форт 
имеется сравнительно небольшой словарь, с которым можно быст¬ 
ро освоиться и при его помощи дать машине задание. 

В процессе диалога с ЭВМ Вы можете договариваться с ней о 
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введении новых слов, которые Вы ей сами объясняете с помощью 
уже известных. Это дает возможность каждому человеку формиро¬ 
вать свой лексикон для общения с машиной, отражающий его соб¬ 
ственные привычки, вкусы и вычислительные потребности. Можно 
переименовывать и первоначальные слова, например, если Вам не 
понравится слово 3\УАР (это английский глагол), его можно заме¬ 
нить русским словом ПЕРЕСТАВЬ, что будет хотя и понятнее, но 
длиннее. 

Опыт показывает, что люди, работающие с Фортом, очень быст¬ 
ро привыкают к его первоначальному словарю и правилам форми¬ 
рования слов, так что такие замены остаются упражнениями для 
новичков. 

Форт представляет большой интерес и тем, какой набор слов 
его авторы сочли необходимым включить в минимум. Первоначаль¬ 
но многое может показаться необычным. Но не торопитесь делать 
критические выводы. Описываемые здесь средства были выбраны 
в результате долгой работы и внимательного анализа большим кол¬ 
лективом опытных программистов. 

СЛОВА И ИХ ВЫПОЛНЕНИЕ 

Система Форт предназначена для работы в диалоговом режи¬ 
ме. Программист, работающий с системой, имеет в своем распоря¬ 
жении какое-либо техническое устройство, позволяющее ему вво¬ 
дить нужные тексты и получать ответы. Чаще всего в качестве та¬ 
кого устройства используется видеотерминал — своеобразное со¬ 
четание телевизора и пишущей машинки. На экране телевизора 
текст выглядит как на странице книги или машинописи (наверное, 
читатель уже видел персональные компьютеры или дисплеи круп¬ 
ных вычислительных машин или терминалы системы для продажи 
железнодорожных билетов). Текст появляется на экране по коман¬ 
дам ЭВМ или, если инициатива передана работающему, при нажа¬ 
тии им клавишей клавиатуры. 

При начальном запуске система представляется и передает 
управление программисту, ожидая от него ввода Информации. 
Обычно в этом случае на экране появляется «подсказка» — услов¬ 
ный значок, показывающий ожидание ввода. Программист должен 
набрать после «подсказки» необходимый текст, проверить и испра¬ 
вить его, если требуется, и передать системе нажатием клавиши 
ввода. 

После этого система начинает исполнять приказы программис-' 
та, причем в этих приказах может быть предусмотрена печать тек¬ 
стов на экране. Действия, вызывающие появление текстов на экра¬ 
не дисплея, очень похожи на действия с пишущей машинкой, и мы 
будем называть такие действия печатью, хотя переноса информа¬ 
ции на бумагу, так привычную для термина «печать», здесь обычно 
не бывает. 

После того, как система выполнила все переданные ей приказы, 
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она переходит в состояние ожидания ввода. Программист наби¬ 
рает новый текст и снова нажимает клавишу ввода, тем самым 
продолжая диалог с Форт-системой. 

Тетіерь о тексте, который программист передает системе. Основ-? 
ным понятием системы Форт является слово. Слово — это любая 
последовательность символов, отличных от пробелов. 

Некоторые слова Форт-системе знакомы, другие — она узнает 
из вводимых текстов. 

Текст — это любая последовательность слов, разделенных про¬ 
белами. 

Вот пример текстаз 

Не забудь, пожалуйста , выключить электроприборы . 

Этот текст достоит из семи слов, так как вторая запятая и точ¬ 
ка в нашем определении слова — отдельные слова (очень важ¬ 
ные для Форта). 


АРИФМЕТИЧЕСКИЙ СТЕК 

В языке Форт стеком называется хранилище целых чисел, ис¬ 
пользуемое для размещения аргументов и результатов операций 
языка. 

На каждое число в стеке отводится 2 байта (элемента памяти). 

Хранимые в стеке числа упорядочены по положению. Будем 
считать, что последнее число находится справа. Позиция, занятая 
крайним правым числом, называется вершиной стека. Стек харак¬ 
теризуется тем, как выполняются основные операции хранили¬ 
ща добавление и удаление информации. При Добавлении числа 
в стек оно приписывается справа от имеющихся, при снятии числа 
со стека удаляется крайнее правое число. 

Введенное число всегда помещается на вершину стека. Слово 
ОКОР (снять) снимает число с вершины стека. Слово • (точка) 
берет из стека число и печатает его. Слово 5: печатает весь стек, 
оставляя его неизменным. 

В дальнейшем действие слов, служащих для изменения состоя¬ 
ния стека, будем показывать на диаграмме 

стек до операции ->• стек после операции, 
причем не затрагиваемую операцией часть стека будем изображать 
многоточием. 

Например, слово ОІІР (дублировать) добавляет в стек еще од¬ 
но значение, равное • тому, которое находится на вершине стека. 
Это слово представляется диаграммой 


БИР (дублировать) ... 

а 

-> 

... а а 

Далее без комментариев 



БКОР (снять) 

а 

—>- 

• • • 

5ШАР (обменять) ... 

а Ь 


... Ь а 

ОѴЕК (через) 

а Ь 


а 1? 

КОТ (вращать) ... 

а Ь с 

—>- 

• •• 1?. с 

—КОТ 

а Ь с 

-НН 

... с а 


Ь 




2БКОР ... а Ь ^ 

20Ш 5 ...аЬ а Ь а Ь 

25\ѴАР ... а Ь с (1 —>- ... с <і а Ь . 

20ѴЕК ... а Ь с <і —>- ... а Ь с <1 а Ь 

РІСК (взять) ... а {п чисел} п -*■ ... а {те же п чисел} а 
(В частности, О РІСК эквивалентно ЦІІР, а 1 РІСК — слову ОѴЕК). 
КОП. (повернуть) ... а (п чисел} п . а {те же п чисел} а 
(В частности, I КОП. эквивалентно 5ШАР, а 2 КОІХ слову ,НОТ). 
Слово ЭЕРТН (глубина) кладет в стек число, равное глубине сте¬ 
ка ■— количеству чисел, находившихся в стеке. 

Проследим, например, выполнение следующего текста. 

1 2 3 СЮР ОЕРТН —КОТ 20ѴЕК 5. 

Выпишем текст в столбик, сопровождая каждое слово состоя¬ 
нием стека после его исполнения. 

1 (1) 

2 (1 2) 

3 (123) 

ОСТР (1 2 3 3) 

ОЕРТН (1 2 3 3 4) 

—КОТ (1 2 4 3 3) 

20ѴЕК (1 2 4 3 3 2 4) 

А теперь сами: 

1 2 3 ОѴЕК 5 —КОТ ОКОР 7 23\ѴАР КОТ 5. 

Какие слова надо выполнить, чтобы изменить стек в соответст¬ 
вии со следующей диаграммой: 

пі п2 пЗ п4 п4 пЗ п2 пі 

г 

АРИФМЕТИЧЕСКИЕ ОПЕРАЦИИ 

Арифметический стек — основное поле для выполнения ариф¬ 
метических действий и хранения промежуточных .результатов вы¬ 
числений. Даже простейшие арифметические операции берут аргу¬ 
менты из стека и помещают результаты обратно в стек. 

Знак операции (точнее слово, обозначающее операцию) пишет¬ 
ся после того, как аргументы в стеке уже размещены. Текст 
13 3 — 

помещает в стек число 10, так как слово — (минус) извлекает из 
стека два числа, сперва вычитаемое, потом уменьшаемое, и поме¬ 
щает в стек их разность: 

— ... а Ь -► ... а—Ь 

С другими операциями все обстоит аналогично: 

+ ... а Ь а + Ь 

X ... а Ь ••• аХЬ 

АВ5 (абсолютное значение) ... а |а| 

ИЕОАТЕ (обратный знак) ... а —а 

С 





У 

... а 

ь 

. целая часть 

МСЮ 

... а 

ь . 

. остаток 

/ /МСЮ 

... а 

ь -> .. 

. остаток целая часть 

В трех последних 

словах имеются 
* 

в виду 

остаток и целая часть 


частного от деления а на Ь. 

Таким образом, если в стеке лежат числа 26 и 7, то слово / пре¬ 
вратит их в 3, слово МСЮ в 5, а слово /МСЮ в пару чисел 5 и 3. 

Имеются специальные слова для действий с 1 и 2 (они выпол¬ 
няются немного быстрее): 

1+ ... а -> ... а+1 

Аналогично работают 1— 2+ 2— 2Х 2/ . 

Числа на стеке могут восприниматься различным образом в за¬ 
висимости от того, какое слово их использует. В отводимых двух 
байтах (16 двоичных разрядах) может уместиться лишь 2 ,6 =65536 
различных значений числа. Обычно они трактуются как числа из 
диапазона от —2 15 до 2 15 —1, но есть слова, которые воспринимают 
их как числа от 0 до 2 16 —1. Следующие слова выполняют пораз¬ 
рядные логические операции над двоичным представлением чисел; 
в этих операциях числа трактуются как наборы из шестнадцати 
битов: 


АШ 

(И) 

а Ь -> . 

.. аАШЬ 

ок 

(ИЛИ) 

а Ь 

. аОКЬ 

ЫОТ 

(НЕ) 

а ., 

.. ЫОТа 

ХОК 

(ИСКЛЮЧАЮЩЕЕ ИЛИ) ... 

а Ь -*■ . 

.. аХОКЬ 


НОВЫЕ СЛОВА 

Помимо уже существующих в системе слов можно создавать 
новые, определяя их действия через уже известные системе. Ис¬ 
полнение созданного слова — это исполнение действий, входящих 
в его описание. Описание начинается словом : (двоеточие) и кон¬ 
чается словом ; (точка с запятой). Сразу после слова : стоит опи¬ 
сываемое слово, и далее — входящие в него действия. Например, 
текст: 

: 52 БИР X 5ЛѴАР ОИР X + ; 

определяет слово 52, вычисляющее сумму квадратов двух чисел 
из стека, 

52 ... а Ь .. аХа+ЬХЬ 

При разработке новых слов нужно внимательно следить за изме* 
нениями стека, делать комментарии. Комментарии ограничиваются 
скобками: слово ( (открывающая скобка) пропускает следующий 
за ним текст до первого символа ) (закрывающая скобка), напри¬ 
мер. 
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"52 ( а Ь аХа+ЬХЬ 

ОІІР (... а Ь Ь — теперь только 

X 5№АР (... Ь X Ь а — » » 

ОИР X (...ЬХЬаХа— » » 

+ ; (определение закончено) 


) 

результат) 

* ) 

> ) 


После выполнения описания слова сразу же могут использо¬ 
ваться и в вычислениях и в определении других слов. Например, 
сумму четырех квадратов можно определить так: 


: 54 (а 'Ъ с <і -*■ аХа+ЬХЬ+сХс+с!Х<1) 

52 —КОТ 52 + ; 

Слово \ѴОК05 (слова) выводит на экран список всех уже из¬ 
вестных системе слов (от самых новых к самым старым). Можно 
отменить уже определенное слово («забыть» его), но при этом за¬ 
бываются также и все слова, определенные позже. Для этого нужно 
выполнить текст из слова РОКОЕТ (забыть) и забываемого слова: 

РОКОЕТ 52 

Такой способ «забывания» вполне естественен: система распо¬ 
лагает в памяти машины информацию о вновь определенных сло¬ 
вах подряд, и забывание — это освобождение памяти тоже подряд, 
т. е. всей памяти, начиная с некоторого места. Можно сказать, что 
память, отведенная для определений слов, организована как стек. 

Вы наверное обратили внимание на то, что при выполнении 
описания (например, описания слова 52) входящие в него уже из¬ 
вестные слова не должны выполняться сразу же (слово ЕШР не 
дублирует вершину стека и т. д.), иначе не получится заготовки 
слова для последующего исполнения. В любой момент времени си¬ 
стема находится в одном из двух состояний — исполнения или 
компиляции. Обычно система находится в первом состоянии, в ко¬ 
тором вводимые слова сразу же исполняются. Исполнение слова : 
(двоеточие) переводит систему в состояние компиляции, при кото¬ 
ром вводимые слова запоминаются для последующего исполнения. 

Приведем еще два примера. Слово 8МСЮ эквивалентно тексту 
8 МОО, но использует логические операции. Интересно слово 
ЬА5Т1 (последний бит), выделяющее в двоичном разложении чис¬ 
ла младшую единицу. 

: 8МСЮ 7 АШ ; 

: ЬА5Т1 БИР БИР 1— ХОК АШ ; 

Это последнее слово — хорошее упражнение на применение логи¬ 
ческих операций. 

Слово ; завершает компиляцию и переводит систему в режим 
Исполнения. Таким образом, само это слово не компилируется, а 
исполняется, несмотря на режим компиляции. Это происходит по¬ 
тому* что оно обладает специальным признаком немедленного ис¬ 
полнения. 


УСЛОВНОЕ ИСПОЛНЕНИЕ 

При определении нового слова могут потребоваться знакомые 
Вам из других языков конструкции, организующие условное и ци¬ 
клическое исполнение. Для этого должны быть предусмотрены и 
логические величины, принимающие традиционные значения исти¬ 
на и ложь. Эти значения представлены целыми числами, причем 
истина соответствует числу —1 (двоичные разряды этого числа 
состоят из 16 единиц), а ложь соответствует 0 (16 двоичных ну¬ 
лей). Для них имеются и стандартные константы ТІШЕ (истина) и 
РАЁЗЕ (ложь), кладущие на стек соответственно числа —1 и 0. 
Логические значения получаются при выполнении некоторых слов, 
предназначенных для сравнения чисел. 

Слова арифметического сравнения: 

> ... а Ь а>Ь (т. е. при а>Ь ТКІІЕ 

иначе РАЬЗЕ) 

< ... а Ь -> ... а<Ъ 

= ... а Ь -> ... а=Ъ 

0= ... а а=0 

0> ... а а>0 

0< ... а ... а<0 

Над логическими значениями можно совершать логические опе¬ 
рации, приведенные ранее; заметим, что константы ТКІІЕ и РАЬЗЕ 
подобраны так, что после выполнения логических операций над ло¬ 
гическими значениями снова получаются логические значения. Опи¬ 
сываемые дальше управляющие конструкции воспринимают числа 
из стека как логические значения следующим образом: 0 соответ-* 
ствует значению ложь, любое другое число — истине. 

Для организации условного исполнения в языке Форт преду¬ 
смотрены слова ІР (если), ЕЬ5Е (иначе) и ТНЕЫ (то). Они исполь¬ 
зуются в конструкциях 

ІР <часть-если> ЕЬЗЕ <часть-иначе> ТНЕЫ 
ІР <часть-если> ТНЕМ. 

Слово ІР берет из стека логическое значение, и, в случае, если 
это значение — истина, т. е. не нуль, исполняет текст <часть-ес- 
ли>; в противном же случае исполняется <часть-иначе>, если 
она есть. Дальше управление передается на текст, следующий за 
ТНЕЫ. Заметим, что использование управляющих слов требует со¬ 
стояния компиляции; таким образом, можно использовать их толь¬ 
ко при определении новых слов. 

Пример. Стандартное слово АВ5 можно было бы определить 
так: 

: АВ5 ( ... а ^ ... |а| ) 

ИИР 0 < ( а а<0 ) 

ІР (а ) 

ЫЕОАТЕ ТНЕМ ; 
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Пример другой конструкции разберите сами и постарайтесь' 
улучшить. 

: МАХ ( ... а Ь тах {а, Ъ} ) 

2БЫР > ІР БКОР ЕЬ5Е 5\ѴАР БРОР ТНЕМ ; 

Слово МАХ и аналогичное ему МШ входят в стандарт языка Форт. 

Конечно же, конструкции ІР могут быть вложенными; нужно 
только следить за скобочными соответствиями слов ІР и ТНЕЫ. 


циклы 


Для организации циклов в языке Форт предусмотрены слова 
ВЁСНЫ (начало), ШНЬЕ (пока), РЕРЕАТ (повторить) и ЫЫТІЬ 
(пока — не), используемые в конструкциях 

ВЕСПЫ <часть-начало> \ѴШЬЕ «участь-повторение>» РЕРЕАТ 
и 4 

ВЕОІЫ «участь-начало ;> ЫЫТІЬ. 

В последней конструкции после исполнения текста <часть-на- 
чало> слово ЫЫТІЬ берет из стека оставленное этим текстом ло¬ 
гическое значение; в том случае, если это значение ложь , снова ис¬ 
полняется «у часть-начало >, потом ІІЫТІЬ и т. д.; итерации пре¬ 
кращаются, когда ЫЫТІЬ возьмет из стека значение истина. При¬ 
мер вычисления факториала может выглядеть так: 

: РАСТ ( ...п -»... п! ) 

БЫР 2«у ІР БРОР 1 ( 1 если п*у2 ; то п ! = 1 ) 

ЕЬЗЕ (п иначе ) 

ОЫР ( п п з=п к=п ) 

(Теперь лежащие в стеке числа будут представлять ) 

(з — накопленное произведение и к — множитель ) 


ВЕОІЫ ( з к <- ) 

1_ ( з к' к'=к_1 ) 

5\ѴАР ОѴЕР X 5№АР ( з' к' з'=зХк ) 

ОЫР 1 = (зк к=1 если к=1, то з=п! ) 

ЫЫТІЬ ( п! 1 иначе повторить — ) 

ОРОР ТНЕЫ ; ( п! *- ) 


Конструкция цикла типа АѴНІЬЕ 

ВЕОІЫ ' «участь-начало > "ѴѴНІЬЕ «участь-повторение > 
РЕРЕАТ используется, когда в цикле есть действия, которые в за¬ 
ключительной итерации не нужны: первоначально выполняется 
«участь-начало >, слово \ѴНІЬЕ снимает со стека логическое зна¬ 
чение и, если это истина , то выполняются тексты «участь-повторе¬ 
ние >, «участь-начало >, снова слово \УНІЬЕ и т. д. Когда слово 
АУНІЬЕ снимет со стека ложь , выполнение цикла закончится и нач¬ 
нет выполняться текст, следующий после РЕРЕАТ. 
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Отметьте, что значение истина здесь соответствует продолже¬ 
нию вычислений, в отличие от циклов типа ІІЫТІЬ. 

Пример 1. Наибольший общий делитель двух положительных 
чисел. 


: НОД ( а НОД [ а, Ь ] по Евклиду) 


2ЭЫР < ІР $\УАР ТНЕЫ 

( теперь а > = Ь 

) 

ВЕСШ ЭІІР 

( а Ь Ь 

>; 

ШНІЬЕ 

( пока Ь > 0 

) 

201ІР МСЮ 

( а Ь аМСЮЬ 

) 

КОТ 

( Ь аМООЬ а 

) 

ЭКОР 

( а' Ь' — новые значения а 

и Ь ) 

КЕРЕАТ БКОР ; 

( НОД (а, Ь) (все) 

) 


Пример 2. Подсчет числа единиц в двоичном разложении числа. 
: ІЖІТ5 ( а ->■ число единиц в а ) 

О 5АѴАР ( 0 а ) 

( В стеке лежат два числа: счетчик числа единиц з ) 
и постепенно изменяемое число а ) 


ВЕОШ 

(за' 

) 

ОЕІР 

($а'а' 

) 

ЬАЗТІ ЭНР 

( з а' сі сі 

) 

\ѴНІЬЕ 

( пока сі > 0 

) 

— 

(за" 

) 

5№АР 1+5\ѴАР 

( з' а" 

) 

КЕРЕАТ 2БКОР ; 

( 5 

) 

Более сложная 

конструкция цикла — цикл со счетчиком 

— 


описана дальше. 


КОНСТАНТЫ И ПЕРЕМЕННЫЕ 

Вы уже познакомились с одним из способов введения новых 
слов при помощи определяющего слова : . Сейчас появятся еще два 
определяющих слова: 

Слово С(Ж5ТА]МТ (константа) в тексте 

СОН5ТАМТ <имя> 

определяет новое слово <имя>* как константу со значением, рав¬ 
ным числу на вершине стека, и снимает со стека это число. В даль¬ 
нейшем выполнение слова <имя> кладет это число в стек. Так, 
после исполнения текста 

80 СОЫ5ТА1МТ ЬШЕ5І2Е 

слово ЫНЕ5І2Е (длина строки) будет класть в стек число 80. 

Определяющее слово ѴАКІАВЬЕ (переменная), которое исполь¬ 
зуется в конструкции: 

ѴАКІАВЬЕ <имя> 
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резервирует в памяти компьютера 2 байта под значение переменной 
<имя>. Исполнение слова <имя> кладет в стек число — адрес 
зарезервированного места. Этот адрес может использоваться дру¬ 
гими словами. 

Вот три важных слова, использующих адреса: 

Слово 1 (восклицательный знак, читается «запомнить») служит 
для записи числа по данному адресу (асЫг): 

! ... а айбг ->■ ... [асІбг] : =а 

Слово @ (читается «взять») кладет в стек число, лежащее по 
адресу, взятому из стека: 

@ ./. асісіг ->•... а а=[аббг] 

Слово + ! прибавляет величину а к числу по адресу асИг: 

+ ! ... а абсіг [асісіг] : = [аббг] +а 

Пример. Текст 

А @ 5 + В ! (АиВ — переменные ) 

соответствует оператору В : =А+5 других языков программиро¬ 
вания. 

Слова, определенные с помощью С(Ж$ТАІ\ Т Т и ѴАКІАВЬЕ, 
практически ничем не отличаются от других слов. В частности, их 
можно «забывать» с помощью слова РОКОЕТ. Сами слова 
ССЖ5ТАНТ, ѴАКІАВЬЕ и : являются частными случаями более об¬ 
щих конструкций — определяющих слов. Со способами их задания 
читатель познакомится ниже. 

КОДОФАЙЛ 

Основной участок памяти, находящийся в распоряжении про¬ 
граммиста, называется кодофайл . В нем, в частности, располага¬ 
ется и словарь системы, включая память, зарезервированную под 
константы и переменные. Память распределяется по возрастанию 
адресов — свободная память находится в конце кодофайла. Та¬ 
ким образом, кодофайл тоже представляет собой стек — стек па¬ 
мяти. Мы будем называть вершиной кодофайла первый свободный 
байт памяти. Как видите, в кодофайле размещены как программа, 
так и информационные объекты. Такое размещение требует от про¬ 
граммиста особой осторожности в работе с памятью — изменения 
в ячейках памяти с неправильным адресом нарушают работу си¬ 
стемы. 

Вот некоторые базовые слова для работы с кодофайлом. 

На стек кладется адрес вершины кодофайла: 

НЕКЕ (здесь) ... ->•... асісіг 

Слово АІХОТ резервирует п байтов свободной памяти — адрес 
вершины кодофайла увеличивается на п (а при п<0 уменьшав 
ется): 

АЬЬОТ (занять) ... п . 
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Занятие двух байтов в кодофайле и запись туда п: 

, ... п ->■ ... 

При работе с памятью кодофайла широко используются слова 
@ и ! . 

Пример. Следующее слово резервирует в кодофайле память под 
п целых чисел (число п берется из стека) и кладет в стек адрес на¬ 
чала зарезервированного места: 

: 2АІХОТ ( п а ) 

НЕКЕ (па) 

5\ѴАР (ап) 

2 X АЬЬОТ ; 

Теперь легко описать, например, слова, заменяющие привычную 
по другим алгоритмическим языкам конструкцию массива: 

: (I) [ і а -> а (і) ] 

ОѴЕК + + ; 

После выполнения следующего текста 

N ( N — константа — число элементов массива) 1 

2АЕЬОТ (на стеке адрес начала массива )] 

ССЖ5ТАЫТ В 

текст В (I) будет снимать со стека номер элемента в массиве В и 
класть в стек адрес этого элемента. 

В (I) ( і -> асИг ) 

Разумеется, никаких проверок корректности номера элемента 
не делается. ^ * 


СИМВОЛЫ 

Для представления символьной информации отводится по од¬ 
ному байту памяти на каждый символ. Таким образом, каждому 
символу сопоставляется число от 0 до 255, которое называется 
его кодом . В разных ЭВМ используются разные кодировки . В оте¬ 
чественных машинах, где требуется добавить к множеству симво¬ 
лов кириллицу, наиболее распространена кодировка КОИ-8, яв¬ 
ляющаяся расширением распространенной в мире кодировки 
А5СІІ. Кодировка КОИ-8 приведена в приложении К. 

Имеются слова для работы с отдельными символами: 

С@ ... а<3<3г . .. с 

В стек помещается число, равное содержимому байта по адресу 
асЫг. (Отметьте, что адрес обычного двухбайтового целого чис¬ 
ла — это адрес его правого байта). 

С ! ... с асісі; . 



В байт по адресу асЫг записывается символ с. 

С, ...с 

Слово, аналогичное слову , (запятая), но резервирующее (и запи¬ 
сывающее) только один байт. 

КЕѴ (клавиша) ... с (ожидание) 

При выполнении этого слова система переходит в ожидание, пока 
не будет нажата клавиша какой-либо литеры на клавиатуре дис¬ 
плея. Код этой литеры и кладется в стек. 

ЕМІТ (выдать) ... с ->■... 

Символ с будет напечатан. 

Слово ВЬ кладет в стек код пробела. Во многих реализациях 
встречается очень полезное слово С", которое кладет в стек код 
первой следующей за ним литеры, не являющейся пробелом. Сло¬ 
во С" делает текст более наглядным, чем при непосредственном ис¬ 
пользовании кодов. Например, чтобы напечатать знак плюс, нужно 
выполнить текст 

С" + ЕМІТ і 

А как быть с кодом пробела? Его кладет в стек слово ВЬ. 

РАБОТА С УЧАСТКАМИ ПАМЯТИ Ц 

Часто приходится выполнять действия сразу над большими 
участками памяти. Участок памяти в таких действиях определяет¬ 
ся адресом его начального байта и длиной. 

РІЬЬ (запомнить) . .. асісіг п с 

Содержимое п байтов, начиная с адреса асісіг, заполняется млад¬ 
шим байтом с. 

ВЬАЫК (заполнить пробелами) . . . асісіг п . .. 

Эквивалентно РІЬЬ с заполнением кодом пробела. 

ЕКА8Е (стереть) ... асісіг п 
Эквивалентно тексту О РІЬЬ. 

СМОѴЕ (переслать) .. . асісіг 1 *а<3сіг2 п ->■ ... 

Перемещение участка в п байтов с началом асійгі по адресу асісіг2. 

Слово СМОѴЕ> отличается от СМОѴЕ тем, что начинает пе¬ 
ремещение с последнего байта участка. Различие этих слов суще¬ 
ственно при перекрытии участков. Вот небольшой пример. Пусть 
на вершине стека лежит адрес участка памяти в 12 байтов, где 
записан текст «Форт-система». Тогда исполнение 

ОІІР 4 + 8 СМОѴЕ 

превратит этот текст в «ФортФортФорт», а если выполнить 



СМОѴЕ > вместо СМОѴЕ, то получится «ФортФорт-сис». Заме¬ 
тим, что с помощью этих слов можно выполнить иногда очень важ¬ 
ные действия — размножить маленькие участки памяти внутри 
больших (например, числа внутри массивов) подобно тому, как в 
нашем примере размножилось слово «Форт». 

Для заполнения участка памяти информацией, вводимой непо¬ 
средственно с клавиатуры, имеется слово ЕХРЕСТ (ожидать) 

ЕХРЕСТ ... Шт п 

Участок памяти от адреса асісіг длиной п байтов заполняется от 
начала к концу вводимыми с клавиатуры символами до тех пор, 
пока не заполнится весь участок или программист не завершит 
ввод (нажав клавишу ввода). Переменная 5РАЫ содержит число 
введенных символов. Результат ввода автоматически выводится 
«на печать». 


СТРОКИ 


Строкой со счетчиком (в дальнейшем просто строкой) назы¬ 
вается участок памяти, в первом байте которого, находится счет¬ 
чик — байт, хранящий длину участка (без учета байта длины). 
Адресом строки считается адрес счетчика. 

Слово " «кавычка» употребляется в конструкции 

// <текст> ,/ ... ~> ... абсіг 

Текст <текст> будет превращен в строку, расположенную во вре¬ 
менном буфере, адрес этой строки кладется в стек. Слово СОІЖТ 
преобразует адрес строки в адрес и длину ее текста: 

СОШТ ... асЫг -> ... асЫг + 1 п , 

а слово ТУРЕ выводит текст (участок памяти) по его адресу и 
длине: 


ТУРЕ (напечатать) .. . абсіг п -> ... 

В качестве примеров работы со строками рассмотрим тексты: 
" МОЛОДЕЦ " СОШТ ТУРЕ (напечатается МОЛОДЕЦ) 

" МОЛОДЕЦ " СОШТ 3 — ТУРЕ (напечатается МОЛО) 

Разберите следующие примеры: слово 5, размещает в кодофай- 
ле строку с данным адресом, а слово Т, — ее текст. Оба слова ос¬ 
тавляют на стеке адрес получившегося объекта: 

: Т, ( аі — адрес строки а2 — адрес в кодофайле ) 


НЕКЕ 5\ѴАР ( а2 аі ) 

СОІЖТ ( а2 а 1 + 1 п ) 

НЕКЕ ОѴЕК АШЭТ ( а2 аі + і л а2 ) 

5\ѴАР СМОѴЕ ; ( а2 ) 

: 5, ( аі — адрес строки а2 — адрес 

строки в кодофайле ) 
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НЕКЕ 5\ѴАР 

ОИР С (а) 1+ ( а2 аі п+і ) 

НЕКЕ ОѴЕК АЬШТ ( а2 аі п+1 а2 — отведено п+1 байт) 
5\УАР СМОѴЕ ; 

Слово . " употребляется в конструкции 
. " <текст> " , 

при выполнении которой текст <текст> будет выведен на терми¬ 
нал. 

Упомянем еще несколько возможностей вывода: слово СК пе¬ 
реводит строки, а слово 5РЛСЕ вставляет в выходной текст пробел 
(т. е. оно эквивалентно ВЬ ЕМІТ или . " " ). 

циклы СО СЧЕТЧИКОМ 

Выше рассматривались циклы типа ДУШЬЕ и ІЖТІЬ. Всем из¬ 
вестно, что не менее важны, в частности, для работы с участками 
памяти, перечислительные циклы , в которых используется параметр 
цикла — целочисленная переменная, пробегающая нужное мно¬ 
жество значений. Для организации таких циклов используется 
(внутри определений слов) конструкция: 

00 <тело-цикла> +ШОР 
или 

00 <тело-цикла> ШОР 
Слово 00 (делать) берет из стека два значения: 

00 ... Ь а-*, 

где а — начальное значение параметра цикла, а ( Ь — пороговое. 
Слово +ІХЮР (цикл) прибавляет в каждой итерации к парамет¬ 
ру цикла число, которое берет из стека. Текст <тело-цикла> ис¬ 
полняется до тех пор, пока очередное значение параметра цикла 
не «перепрыгнет» через границу, проходящую между Ь—1 и >Ъ. 
Конструкция 

00 ... +1ХЮР 

допускает и отрицательные приращения параметра цикла; именно 
с учетом этого и дана такая хитрая формулировка правила завер¬ 
шения цикла. Используемое чаще слово ЬООР эквивалентно 
1 +1ХЮР. В конструкции с этим словом <тело-цикла> исполнит¬ 
ся Ь—а раз при Ь>а. При Ь^а цикл 00 ... ЬООР выполняется 
65536 + Ь —а раз. 

Слово I помещает в стек текущее значение параметра цикла. 
Естественно, что циклы могут быть вложенными; значение пара¬ 
метра объемлющего цикла помещается в стек словом 3. 

Пример. Сумма квадратов первых п натуральных чисел: 

: 552 ( п ->- сумма ) 

О 5\УАР 1+ 1 00 I ОИР X + ЬООР ; 





Слово ЬЕАѴЕ обеспечивает немедленный выход из цикла (са¬ 
мого глубокого) . 

Возникает естественный вопрос, куда же деваются значения а 
и Ь, которые ВО снимает со стека, и откуда берется текущее зна¬ 
чение параметра цикла. 

В системе есть еще один стек — стек возвратов , о нем будет 
рассказано ниже. 


СЛОВАРНАЯ СТАТЬЯ 

Теперь более подробно рассмотрим, как функционирует Форт- 
система. Она может быть устроена по-разному, но наиболее рас¬ 
пространены два способа организации — с помощью прямого и 
косвенного шитых кодов. Там, где это возможно, мы будем опи¬ 
сывать устройство и работу систем независимо от способа реали¬ 
зации; в остальных же случаях будем придерживаться реализации 
с помощью прямого шитого кода. 

Для каждого слова при его определении система создает сло¬ 
варную статью — расположенный в кодофайле информационный 
объект, содержащий перечень входящих в слово действий и уст¬ 
роенный так, чтобы был возможен его поиск по имени слова в сло¬ 
варе системы. 

Можно считать, что словарная статья состоит из системной ча¬ 
сти, служащей для ее хранения и поиска, и программной части, 
описывающей действия и информацию, связанные с этим словом. 

В системной части естественно выделяются: 

1. Поле имени , содержащее имя слова, представленное в виде 
строки со счетчиком. 

2. Поле связи — адрес словарной статьи предыдущего слова, 
служащий для организации списка словарных статей. 

В программную часть включаются: 

1. Поле кода , или исполняемая часть , представляющая собой 
вызов интерпретатора (для прямого кода это — машинная коман¬ 
да, передающая управление специальной программе — адресно¬ 
му интерпретатору). 

2. Поле параметра , или данные — область памяти, используе¬ 
мая словом (например, зарезервированная память в слове, опре¬ 
деленном с помощью ѴАШАВЬЕ). 

При выполнении введенного слова его прежде всего ищут в сло¬ 
варе; если слово найдено, то оно исполняется, т. е. управление пе¬ 
редается на поле кода этого слова. Для выполнения каждого из 
этих двух действий по отдельности служат следующие слова: 

слово ' (читается штрих) употребляется в конструкции 

<слово> ... “V ... асЫг 

Слово <слово> должно быть уже определено. При выполнении 
этой конструкции адрес исполняемой части слова <слово> кла¬ 
дется на стек. 


2 А. Ю. Бураго, В. А. Кириллин, И. В. Романовский 
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Слово ЕХЕСІІТЕ (выполнить) 

ЕХЕСЫТЕ ... асісіг ... 

снимает со стека адрес исполняемой части некоторого слова и вы¬ 
полняет это слово. Таким образом, текст 

' <слово> ЕХЕСІЛЕ 

эквивалентен тексту 

<слово> 

Заметим, что при определении нового слова входящие в него 
слова не выполняются, а происходит вот что: адреса их исполняе¬ 
мых частей заносятся в кодофайл, формируя поле параметров опре¬ 
деляемого слова. 

КОМПИЛЯЦИЯ и ИСПОЛНЕНИЕ 

В каждый момент система может находиться в одном из двух 
состояний — исполнения и компиляции . В состоянии исполнения 
каждое введенное слово разыскивается в словаре и исполняется; 
в состоянии же компиляции оно не исполняется, а компилируется , 
т. е. адрес его исполняемой части заносится на вершину кодофай¬ 
ла с резервированием этого места. При выполнении слова : (двое¬ 
точие) система переходит из режима исполнения в режим ком¬ 
пиляции, а в кодофайл вписывается системная часть определяемо¬ 
го слова и вызов интерпретатора. Далее слова, входящие в опреде¬ 
ление нового слова, компилируются, формируя его поле кода. 

Слово ; завершает компиляцию и переводит систему в режим 
исполнения. Таким образом, само это слово не компилируется, а 
исполняется , несмотря на режим компиляции. Вы уже знаете, что 
оно обладает специальным признаком немедленного исполнения. 
Тем же признаком обладают и все управляющие конструкции (ус¬ 
ловного и циклического исполнения); конечно, среди выполняемых 
ими действий есть и компиляция некоторых специальных слов. 

Предусмотренное в системе слово ІММЕОІАТЕ (немедленное) 
присваивает признак немедленного исполнения последнему опре¬ 
деленному слову. 

Для управления режимами исполнения и компиляции преду¬ 
смотрены следующие слова: 

[ — перевод системы в режим исполнения; естественно, слово [ 
обладает признаком немедленного исполнения. 

] — перевод системы в режим компиляции. 

Слово [СОМРІЬЕ] (компилировать) выполняет принудитель¬ 
ную компиляцию следующего за ним слова независимо от наличия 
у него признака немедленного исполнения. Само оно также имеет 
признак немедленного исполнения. 

В выполняемые словом действия может входить компиляция 
других слов. Такая «компиляция компиляции» описывается конст¬ 
рукцией 

СОМРІЬЕ <слово> 
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Заметим, что слово, включающее такие действия, имеет обычно 
признак немедленного исполнения. 

В системе имеется удобное слово РШО (искать), служащее 
для поиска слов с проверкой признака немедленного исполнения: 

РШІ) ... асЫгІ ас!сІг2 п 

Здесь асЫгІ — адрес строки со счетчиком, содержащей имя слова. 
Число п принимает значение 0, если слово не найдено, I, если слова 
найдено и имеет признак немедленного исполнения, —1, если этого 
признака нет. Значение асМг2 в первом случае равно асЫгІ, в ос¬ 
тальных — задает адрес поля кода. 

В отличие от ' слово РШЭ использует строку со счетчиком, это- 
позволяет формировать образец поиска программным путем. 

Поговорим теперь немного об управляющих конструкциях. Они 
используют стандартные слова ВНАМСН (переход) и РВКАМСН. 
Скомпилированное слово ВКАГ\[СН при своем исполнении изменяет 
текущий адрес интерпретации на адрес, записанный сразу после 
него, выполняя тем самым безусловный переход, так как после 
этого будет выполняться программный текст, расположенный по 
этому адресу; слово РВКАІѴСН выполняет условный переход: оно 
снимает со стека число, и переход происходит лишь в том случае, 
если это число — 0. 

Для примера посмотрите, как можно реализовать слова ІР и 
ТНЕЫ: 

: ІР СОМРІЬЕ ?ВКАЖ:Н НЕКЕ 0,2; ІММЕОІАТЕ 
: ТНЕИ 2 ?РАІК5 НЕКЕ $\ѴАР ! ; ІММЕОІАТЕ 

Слово ?РАІК8 снимает со стека два числа и выдает сообщение об 
ошибке, если они не равны; это слово используется для проверки 
правильности записи управляющих конструкций; в данном примере 
номер 2 зарезервирован для условных операторов. 

Таким образом, исполнение слова ІР компилирует адрес слова 
?ВКАЫСН, резервирует место для ссылки вперед (на обход вет¬ 
ви — ІР) п оставляет адрес зарезервированного места на стеке. 
Слово ТНЕN снимает этот адрес со стека и вписывает в него теку¬ 
щий адрес в кодофайле. 

Заметьте, что стек, в режиме компиляции программистом не ис¬ 
пользуемый, активно используется в процессе компиляции слов си¬ 
стемой, поэтому изменять его во время исполнения определений 
(например, текстом [ ЭКОР ] ) не рекомендуется. 

СТЕК ВОЗВРАТОВ 

Для того чтобы .слегка отдохнуть от трудного материала преды¬ 
дущих разделов, познакомимся с более простой конструкцией —- 
стеком возвратов, знание которой очень пригодится при дальней¬ 
шем изложении. 

Кроме арифметического стека, в системе используется еще один 
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стек, называемый стеком возвратов. Система использует его для 
организации циклов и вложенного исполнения слов. 

Программист может временно хранить информацию в стеке 
возвратов с помощью слов: 

Ж .. . а -> . . . ] ... а 

число а снимается из стека и кладется в стек возвратов (справа 
от черты); 

К> ... . а | ... а -> ... 

число а снимается из стека возвратов и кладется в арифметический 
отек; 

... . а і ... а -> ... а 

число а с вершины стека возвратов копируется в арифметический 
стек. 

Пример. Описание слова ЗОІІР: 

: ЗОІІР ( аЬс-^аЬсаЬс) 

Ж 2В\]Р К@ —КОТ К> ; 

Ограничения: содержимое стека возвратов следует восстанавли¬ 
вать в прежнем виде при завершении исполнения слова и тела цик¬ 
ла со счетчиком. При использовании стека возвратов внутри 
цикла слова I и 5 могут выдавать неправильные значения: на стеке 
возвратов хранятся текущие и граничные значения параметров 
цикла. Слово I просто снимает нужное значение со стека возвра¬ 
тов в соответствии с выбранным в реализации форматом. Именно 
поэтому опасно совместное использование слов I и 3 с манипуля¬ 
цией со стеком возвратов. 

ИСПОЛНЕНИЕ СЛОВ 

Теперь подробно опишем процедуру исполнения слов. Подчерк¬ 
нем, что предлагаемое описание относится к прямому шитому ко¬ 
ду; для косвенного кода эта процедура несколько иная. 

Как уже говорилось, в системе имеется специальная програм¬ 
ма — адресный интерпретатор , которая занимается исполнением 
слов, не записанных в машинных командах. Интерпретатор пред¬ 
ставляет собой программу с тремя режимами. 

Исполнение слова начинается с вызова режима САІХ (вызов), 
который устанавливает указатель интерпретации ІР на начало ко¬ 
да данного слова. Прежнее значение ІР, в котором хранилась точ¬ 
ка вызова исполняемого слова, запоминается в стеке возвратов, что 
обеспечивает вложенное исполнение слов. Режим САЬЬ завершает¬ 
ся первым вызовом режима ЫЕХТ (следующий). 

Режим ЫЕХТ передает управление по адресу, записанному в 
месте памяти, на которое указывает ІР, одновременно передвигая 
ІР на следующий элемент кода (т. е. прибавляя к нему 2). 

Такие вложенные вызовы продолжаются до тех пор, пока управ- 
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ленте не передано на машинную подпрограмму, которая и будет 
исполнена. В конце каждой такой программы записан вызов ре¬ 
жима ЫЕХТ адресного интерпретатора. В конце каждого интер¬ 
претируемого кода записан вызов третьего режима интерпретато¬ 
ра — режима КЕТІЛ^ (возврат), его компилирует туда слово ; . 
Режим КЕТІШЙ завершает исполнение слова. Он загружает ІР 
значением, снимаемым со стека возвратов и вызывает режим 
Х Т ЕХТ. 

Еще несколько замечаний к описанной процедуре: 

1. При компиляции чисел перед числом компилируется спе¬ 
циальное слово, кладущее на стек число из следующих за ним двух 
байтов и одновременно переставляющее указатель интерпретации 
после этих двух байтов. Аналогичным образом обрабатываются 
строки. 

2. Слово ЕХІТ позволяет закончить обработку данного слова в 
любом его месте: понятно, что это слово осуществляет вызов режи¬ 
ма КЕТОКХ. 


ОПРЕДЕЛЯЮЩИЕ СЛОВА 

Вы уже знакомы с определяющими словами, служащими для 
образования новых слов. Это были слова СОМ8ТА1МТ и 
ѴАКІАВЬЕ. Сейчас вы увидите способ описания таких слов; в даль¬ 
нейшем будет удобно называть их также словами-генераторами. 

Слова-генераторы описываются с помощью слов СКЕАТЕ (со¬ 
здать) и ООЕЗ> (исполнить) в конструкции: 

: <имя-генератора> СКЕАТЕ <создающая часть> 

ООЕ8> <исполняющая чзсть> ; 

и употребляются в конструкции 

< имя-генер агора > <имя> 

для определения слова <имя> (сравните с использованием ге¬ 
нераторов ССЖ8ТАМТ и ѴАКІАВЬЕ). 

При выполнении конструкции слово СКЕАТЕ создает в кодо- 
файле словарную статью для слова <имя>>, а тем самым зано¬ 
сит слово <имя> в словарь системы, после чего исполняется 
текст <создающая часть>, который может зарезервировать в ко- 
дофайле дополнительное место и заполнить его по своему усмот¬ 
рению, создав этим поле параметров слова. В дальнейшем при ис¬ 
полнении слова <Мімя> на стек кладется адрес поля параметров 
и выполняется текст ^исполняющая часть>. Например, 

: ССЖ8ТАНТ СКЕАТЕ , ( слово , резервирует 2 байта ) 

( и кладет в них число из стека ) 
ООЕ8> ( па стеке адрес этих двух байтов ) 

@ ; ( значение помещается в стек ) 
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Таким образом, Сисполняющая часть> слова-генератора яв¬ 
ляется интерпретатором для поля параметров определяемого сло¬ 
ва, в поле кода которого вызов интерпретатора как раз и содержит 
ссылку на нее. 

В качестве упражнения разберите устройство генератора одно¬ 
мерных массивов. Слово АККАѴ (массив) берет из стека целое 
число 5 и резервирует в кодофайле место для 5 чисел, связывая 
с ними следующее за АКРАѴ слово как имя этого массива. В даль¬ 
нейшем выполнение имени массива берет из стека индекс, прове¬ 
ряет его принадлежность к диапазону от 1 до 5 и, если индекс при¬ 
надлежит этому диапазону, помещает в стек адрес соответствую¬ 
щего элемента массива: 


і АККАУ 

СКЕАТЕ ЭЫР , 

2Х АЬЬОТ 
ЭОЕ5> 

ОѴЕК I < 


( в стеке лежит число элементов ) 
( это число помещается в поле па¬ 
раметров ) 

( захват места для массива ) 

( при вызове в стеке лежит индекс ) 
( и помещается адрес захваченной 

памяти ) 


ІР . " ИНДЕКС МЕНЬШЕ 1 " 2ВЯОР 
ЕЬ5Е 2Б11Р @ > ІР . "ИНДЕКС БОЛЬШЕ ЧЕМ НАДО 
2БКОР 

ЕЬЗЕ 1 + 5\ѴАР 2Х + ТНЕИ ТНЕЫ ; 


АРИФМЕТИКА ДВОЙНОЙ ТОЧНОСТИ 

Наряду с обычным представлением целых чисел, в котором на 
каждое число отводится по два байта, Форт допускает представ¬ 
ление чисел с двойной точностью — число размещается в четырех 
байтах и, следовательно, может принимать значения от —2 31 до 
2 31 — 1 . 

Чтобы отличать числа двойной точности от обычных чисел, на¬ 
до в запись таких чисел (в любом месте) включать точку. Напри¬ 
мер 12345678 — число двойной точности. 

Для размещения такого числа в стеке и, аналогично, в памяти 
отводятся две стандартные позиции, идущие подряд, левая полови¬ 
на числа располагается на вершине стека, а правая — за ней. 
Слов, работающих с числами удвоенной точности, в языке не очень 
много; разумеется, к ним относятся и давно известные нам слова 
2БКОР 2БЫР 20ѴЕК 25\ѴАР 

Слово 2@ аналогично слову оно кладет на стек число 
двойной длины, находящееся по данному адресу: 

2 @ ... асісіг (двойное число) 

Слово 2 ! аналогично слову ! : 

2 ! ... б аббг -^ ... 
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Из арифметических операций выбран самый минимальный на¬ 
бор 


0 + 

... (11 

(12 -► . 

. . < 11+<12 

0 — 

... <11 

(12 -> . 

.. ( 11—(12 

ОАВ$ 

... <1 

— V 

.. |< 1 | 

ЭЫЕОАТЕ 

... (1 

->- 

.. —а 

о< 

... <11 

(12 -> . 

.. аі < а2 

э= 

... (11 

(12 -> . 

.. аі=аг 


Операции умножения и деления являются «смешанными», ум¬ 
ножение двум числам обычной длины сопоставляет их произведе¬ 
ние двойной длины, в делении делимое имеет двойную длину, а де¬ 
литель, частное и остаток — обычную: 

МХ ... пі п2 -*■ ... б=п1Хп2 

М/МОО ... (1 п ... пі п2 (остаток частное) 

Для перевода числа в двойное используется слово 5>0: 

: 5>0 ( п (1 ) 

ВѴР 0< ; 

Обратный перевод требует тщательной проверки его корректности, 
но в простейшем случае эквивалентен ОКОР. 

Наконец, имеются слова 2СОЫ5ТАЫТ и 2ѴАКІАВЬЕ, вполне 
аналогичные своим прообразам для чисел обычной длины. 

ФОРМАТНЫЙ ВЫВОД 

До сих пор рассматривались только самые простые способы вы¬ 
вода информации. Можно к ним добавить еще по материалам пре¬ 
дыдущего раздела слово В . , выводящее на печать двойное слово, 
снимаемое со стека. В основе этого и других слов, управляющих 
выводом, лежит несколько вспомогательных слов, с помощью ко¬ 
торых можно организовать любой вывод. 

В Форте можно просто менять систему счисления, используе¬ 
мую при вводе и выводе информации. Имеется переменная ВАЗЕ 
(основание), хранящая основание текущей системы счисления. Ее 
исходное значение равно десяти (т. е. основанию обычной десятич¬ 
ной системы), и, следовательно, первоначально числа вводятся и 
выводятся в наиболее распространенной форме. При изменении 
значения ВАЗЕ система счисления автоматически изменяется. Осо¬ 
бенно часто используются шестнадцатиричная и двоичная системы, 
первая из них устанавливается словом НЕХ (шестнадцатиричная): 

: НЕХ 16 ВАЗЕ ! ; 

Для возврата в десятичную систему используется слово ПЕСІМАЬ 
(десятичная), которое без труда напишет читатель самостоятельно. 

Описываемые ниже слова работают с буфером вывода , в кото¬ 
ром формируется внешнее представление числа в виде строки сим- 
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волов. Форматное преобразование начинается словом < # , кото¬ 
рое устанавливает указатель на конец буфера, так как формиро¬ 
вание буфера идет от конца. Слово НОьЬ (сохранить) переносит 
литеру со стека в буфер и продвигает указатель буфера вперед на 
одну позицию. Слово #> завершает преобразование и кладет 
на стек адрес сформированной в буфере строки литер и ее длину. 

Собственно для формирования символов должны использовать¬ 
ся другие слова, которые выделяют поочередно разряды числа и 
превращают их в соответствующие символы. Основным таким пре¬ 
образователем является слово # . Оно делит двойное число с вер¬ 
шины стека на основание текущей системы счисления, заменяет его 
на стеке получившимся частным (тоже двойной длины), а остаток 
переводит в литеру и записывает в буфер при помощи слова НОЬО. 

Полный перевод числа выполняет слово # 5, которое оставляет 
на стеке двойной нуль — результат последнего деления: 

: #5 ( 6 -^ 00 ) 

ВЕОШ # 2ПІ6Р О О О— ШТІЬ ; 

Для вывода знака минус предусмотрено слово 5ІСЫ (знак): 

: 5КШ ( п -► ) 

0< ІР С" — НОЬО ТР^ ; 

Итак, все готово для определения слова Э. ; 

:0. ( б -> ) 

20ИР ЭАВЗ 

<# # 5 КОТ 5КШ #> 

ТУРЕ 5РАСЕ ОКОР ; 

Слово . для печати обычных чисел определяется совсем просто: 

: . ( п -> ) 

8>Б Б. ; 

В качестве примера форматного вывода создадим два полезных 
слова. Первое печатает номер телефона в стандартном виде: 

: .РНСЖЕ ( б -► ) 

<* # # С" — НОЬП 

# # С" — НОП) #5 # > ТУРЕ ; 

Проверим правильность этого слова: 

2579469 .РНСЖЕ 

257-94-69 

При помощи второго слова можно выводить результаты мара¬ 
фонского забега, замеренного с точностью до сотых долей секунды, 
например: 

2ч37м42.93с 

Введем два вспомогательных слова. Слово 5ІХІ устанавливает 
шестиричную систему счисления. Слово # М3 выдает минуты или 
секунды: 
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: 5ІХІ 


"*■ ) 

6 ВАЗЕ ! ; 

: # М3 ( (1 -ѵ (1/60 ) 

# 5ІХІ # ОЕСІМАЬ ; 

Слово .ТАВЬЕАІІ собственно и выводит результаты забега: 

: .ТАВЬЕАП ( сі ->• ) 

< # С" с НОІЛЭ * # 

С" . НОЫЭ 4ФМ5 
С" м НОЬО #МЗ 

; С" ч НОЬО #3 #> ТУРЕ ; 

ВНЕШНЯЯ ПАМЯТЬ 

Памяти микрокомпьютера обычно недостаточно для запомина¬ 
ния всех необходимых данных и программ. Для этого использует¬ 
ся память на внешних носителях. В основном это память на маг¬ 
нитном диске, но можно воспользоваться и кассетным магнитофо¬ 
ном. 

В Форте данные и программы запоминаются на диске блоками* 
по 1024 байта (т. е. 1 Кбайт) каждый. Блоки иногда называют эк¬ 
ранами. Имеется в виду, что блоки могут содержать текст, который- 
распечатывается на экране в виде 16 строк по 64 символа в каждой. 

Сначала рассмотрим, как можно распечатывать и загружать ис¬ 
ходные тексты Форт-программ. Следующий оператор 

25 Ы5Т (распечатать) 

распечатает на экране блок 25 в виде последовательности из 16» 
строк по 64 символа в каждой. Переменная 5СК (номер экрана) 
хранит.номер последнего распечатанного по ІЛ5Т блока. Исполь¬ 
зуя этот факт, можно написать следующие слова: Б — распечатать 
блок еще раз; ББ — распечатать предыдущий блок; IX — распе¬ 
чатать следующий блок: 

: Б 8СК @ Ы5Т ; 

: ББ 5СК @ 1— Ы5Т ; 

: БЫ 5СК @ 1+ ЫЗТ ; 

Слово ШБЕХ (индекс) служит для распечатывания первых 
строк последовательности экранов. Обычно в первой строке экрана 
пишется комментарий. Например, 

12 24 ІШЕХ 

распечатает первые строки экранов с 12 по 24 включительно. 

Загрузка блока также проста, как его распечатка. Если блок 
содержит текст Форт-программы, которую вы с помощью редакто¬ 
ра набрали с терминала, то этот текст может быть введен прямо* 
из блока. Если вы напишите 

25 БОАЭ 
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то текст из блока 25 будет обработан Форт-системой, как если бы 
он был введен с клавиатуры. Заметим, что блок 25 в свою очередь 
может содержать слово ШАО (загрузить), например, 

45 ШАО 

После загрузки блока 45 произойдет возврат и «дозагрузка» остат¬ 
ка блока 25. 

Программа обычно занимает не один блок. Для загрузки после¬ 
довательности блоков используется слово ТНІШ (сквозь). Напри¬ 
мер, 

12 24 ТНКЕГ 

загрузит блоки с 12 по 24 включительно. 

Слово —> вызывает загрузку следующего блока. Слово ;5 пре- • 
кращает загрузку блока, с его помощью можно загрузить только 
пасть блока. 

Переменная ВЬК (номер блока) содержит номер блока, кото¬ 
рый загружается в текущий момент. Если ВЬК содержит ноль, это 
означает, что ввод текста идет с клавиатуры. Таким образом, блок 
с номером 0 не может содержать программу. Вторая переменная, 
используемая при загрузке блока, — это >Ш (указатель ввода). 
Она содержит смещение в байтах относительно начала блока, от¬ 
куда в настоящий момент идет ввод текста. Если ВЬК равно нулю, 
то указывает на смещение от начала буфера ввода. 

Существуют средства для работы с содержимым блока. Глав¬ 
ным из них является слово ВШСК (блок), которое переносит блок 
с указанным номером на 1024-байтный блочный буфер в оператив¬ 
ной памяти и оставляет адрес начала этого буфера на стеке. Для 
работы с этим блоком теперь можно использовать любые слова, 
работающие с оперативной памятью. Если набрать 

25 ВШСК 1024 ТУРЕ , 

то распечатается текст, хранящийся в блоке с номером 25. Слова 
Ы5Т и ШАО используют слово ВШСК для доступа к нужному 
блоку. Теперь попробуйте набрать 

10 25 ВШСК ! 

Таким способом засылается в первую ячейку блока с номером 25 
значение 10. Но это не значит, что содержимое блока на диске из¬ 
менилось. Для такого изменения необходимо переслать содержимое 
блока 25 обратно на диск. Слово ІІРОЛТЕ (изменить) создано спе¬ 
циально для этой цели. ГІРОАТЕ помечает буфер, в котором хра¬ 
нится блок как измененный. И теперь, когда этот буфер потребует¬ 
ся для размещения какого-нибудь другого блока, он будет предва¬ 
рительно записан на диск, заменяя прежнее значение блока. 

Можно заставить систему записать измененный блок на диск, 
не дожидаясь пока его вытеснит другой блок. Для этого исполь¬ 
зуются слова РШ5Н (очистить) и ЗАѴЕ-ВІІРРЕКЗ (сохранить 
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буферы). 5АѴЕ-ВОТРЕК5 выгружает все помеченные по ІФОАТЕ 
блоки на диск. РІДДЗН после этого еще и очищает буферы, запол¬ 
няя их пробелами. 

Если же Вы случайно испортили буферы и не хотите, чтобы они 
были записаны на диск, то используйте в этом случае слово ЕМРТѴ- 
ВІІРРЕК5 (очистить буферы). Оно сотрет все признаки ІІРБАТЕ 
и очистит буферы, отменив тем самым все последние исправления. 
Восстановить буферы можно, снова загрузив их с диска при помо¬ 
щи слова ВЬОСК. 

Описанных средств вполне достаточно, чтобы на их основе раз¬ 
вивать файловые системы или организовывать базы данных. Дан¬ 
ные в таких системах обычно хранятся в последовательно идущих 
блоках, доступ к которым осуществляется по их номерам. 


ПРИМЕРЫ РАБОТЫ ФОРТ-СИСТЕМЫ 


Рассмотрим следующий пример. Введем три новых слова: 

: ЗОІФ БІФ 20ѴЕК КОТ ; 

: 32 БИР X 3\ѴАР БІФ X + ; 

: ЗРЭ ЗОІІР 52 —КОТ 52 X —КОТ 52 X ; 

Первые два слова нам уже встречались. Третье слово преобразует 
лежащие на стеке три числа, а, Ь, с в произведение попарных сумм 
квадратов (аХа+ЪХЬ) X (ЬХ'Ь+сХс) X (сХс+аХа). 

При компиляции этих слов получается приблизительно такой 
текст (при его составлении использовалась шестнадцатиричная си¬ 
стема счисления): ’ 


адрес фрагмент текста 


1С12 

04 33 44 

1С17 

03 1С 

1С19 

СВ Р0 02 

1С1С 

ІА 03 

1С1Е 

78 03 

1С20 

5Е 03 

1С22 

02 03 

1С24 

02 53 32 

1С27 

12 1С 


комментарий 
статья для ЗОІФ 

строка 'ЗОИР' 

1СОЗ = адрес предыдущей 

статьи 

передача управления интерпре¬ 
татору по адресу: 02Р0 (ре¬ 
жим САЫ.) 

СО — код команда передачи 
управления САЬЬ 
031А=адрес ОІФ 
0378 = адрес 20ѴЕК 
035Е=адрес КОТ 
0302=адрес ЕХІТ (режим 
КЕТОКИ) 

статья для 52 
строка '52' 

1С12 = адрес предыдущей 

статьи 
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Ю29 

СЭ РО 02 

передача управления интерпре¬ 
татору 

1С2С 

ІА 03 

031А=адрес ОІІР 

1С2Е 

7Р 03 

037Р=адрес X 

1С30 

24 03 

0324=адрес 5\ѴАР 

1С32 

ІА 03 

031 А=адрес ОІЛР 

ІС34 

7Р 03 

037Р=адрес X 

1С36 

50 03 

0350=адрес + 

1С38 

02 03 

0302=адрес ЕХІТ 
статья для 5РО 

ЮЗА 

03 53 50 44 

строка '5РЕ)' 

ЮЗЕ 

24 Ю 

Ю24 = адрес предыдущей 

статьи 

Ю40 

СО Р0 02 

передача управления интерпре¬ 
татору 

Ю43 

19 Ю 

Ю19=адрес ЗОІІР 

Ю45 

29 Ю 

Ю29 = адрес 52 

Ю47 

ЗЕ 03 

033Е = адрес —КОТ 

Ю49 

29 Ю 

Ю29=адрес 52 

Ю4В 

7Р 03 

037Р= адрес X 

Ю4Б 

ЗЕ 03 

033Е = адрес —КОТ 

Ю4Р 

29 Ю 

Ю29=адрес 52 

Ю51 

7Р 03 

037Р=адрес X 

Ю53 

02 03 

0302=адрес ЕХІТ 


Посмотрим, как выполняется слово 5РО, если в стеке уже ле¬ 
жат числа 5, 2 и 4. Нас будет интересовать содержимое основного 
«стека, стека возвратов и указателя интерпретации ІР, имеющее пер¬ 
воначально следующие значения: 

основной стек стек возвратов ІР 

5 2 4 0С76 

Начинается выполнение слова 5РО. Форт-система передает уп¬ 
равление программному тексту, расположенному по адресу 1С40. 
Указатель интерпретации ІР содержит адрес 0С76. Это внутренний 
адрес самой системы, по которому следует вернуть управление пос¬ 
ле выполнения слова 5РО. Управление получает подпрограмма ад- 
ресного интерпретатора, реализующая режим САЬЬ и располагаю¬ 
щаяся по адресу 02Р0. Эта подпрограмма переустанавливает ІР на 
адрес 1С43, сохраняет прежнее значение ІР в стеке возвратов и пе¬ 
редает управление подпрограмме, реализующей режим ЙЕХТ: 

524 0С76 1С43 

Режим ЫЕХТ передает управление по адресу, на который ука¬ 
зывает ІР, т. е. по адресу 1С19. Одновременно ІР увеличивается 
на 2: 

524 0С76 1С45 


\ 
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Управление опять получит режим САЬЬ, который произведет 
уже знакомые нам действия, и мы войдем в слово ЗОиР: 

5 2 4 0С76 1С45 1С1С 

Режим ЫЕХТ передает управление по адресу 031А, где нахо¬ 

дится машинная программа, реализующая операцию ВѴР: 

5 2 4 4 0С76 1С45 1С1Е 

Существует правило, по которому каждая машинная программа 
после своего выполнения передает управление режиму ЫЕХТ. Тем 
самым мы постоянно переходим к следующему по порядку слову: 


5 

2 

4 

4 

5 2 

ОС 76 

1С45 


1С20 

5 

2 

4 

5’ 

2 4 

ОС 76 

1С45 


1С22 

Выполнение слова ЗЭІІР завершается исполнением слова ЕХІТ 

которое, осуществляя 

режим КЕТІШМ, загружает 

ІР 

значением 

Снятым со 

стека возвратов, и передает управление режиму ^ЕХТ: 

5 

2 

4 

5 

2 4 

0С76 



1С45 

Управление получит слово 52 

и цикл повторится 



5 

2 

4 

5 

2 4 

0С76 

1С47 


1С2С ^ 

5 

2 

4 

5 

2 4 

4 0С76 

1С47 


1С2Е 

5 

2 

4 

5 

2 16 

0С 76 

1С47 


1С30 

5 

2 

4 

5 

16 2 

ОС 76 

1С47 


1С32 

5 

2 

4 

•5 

16 2 2 0С76 

1С47 


1С34 

5 

2 

4 

5 

16 4 

0С76 

1С47 


1С36 

5 

2 

4 

5 

20 

0С76 

1С47 


1С38 

5 

2 

4 

5 

20 

ОС 76 



1С47 

Выполнение 52 

завершилось, 

выполняется —КОТ: 


5 

2 

20 

4 

5 

ОС 76 



1С49 

Управление 

снова 

получает слово 52, но 

уже с 

другими пара- 

метрами: 









5 

2 

20 

4 

5 

0С76 

1С4В 


1С2С 

5 

2 

20 

4 

5 5 

0С76 

1С4В 


1С2Е 

5 

2 

20 

4 

25 

0С76 

1С4В 


1С30 

5 

2 

20 

25 

4 

0С76 

1С4В 


1С32 

5 

2 

20 

25 

4 4 

0С76 

1С4В 


1С34 

5 

2 

20 

25 

16 

0С76 

1С4В 


1С36 

5 

2 

20 

41 


0С76 

1С4В 


1С38 і 

5 

2 

20 

41 


0С76 



1С4В 

Выполнение 52 

завершилось, 

ВЫПОЛНЯЮТСЯ X и 

— 

КОТ: 

5 

2 

820 



0С76 



1С4Э 

820 

5 

2 



0С76 



1С4Е ' 

И снова управление получает слово 52: 




820 5 

2 



0С76 

1С51 


1С2С 


29 



820 5 

2 2 

0С76 

1С51 

1С2Е 

820 5 

4 

0С76 

1С51 

1С30 

820 4 

5 

ОС 76 

1С51 

1С32 

820 4 

5 5 

0С76 

1С51 

1С34 

820 4 

25 

0С76 

1С51 

1С36 

820 29 


0С76 

1С51 

1С38 

820 29 


0С76 


1С51 


Выполнение 52 завершилось, выполняются X и ЕХІТ: ' 

23780 ОС 76 1С53 

23780 ^ 0С76 

Слово ЗРО выполнено. Управление возвращается Форт-системе 
по адресу 0С76. 

ПРИМЕР РАБОТЫ СТРУКТУР УПРАВЛЕНИЯ 

Рассмотрим следующий пример: ^ 

: АВ5 ОЕІР 0< ІР ЫЕОАТЕ ТНЕN ; 

Это слово нам уже знакомо. Оно вычисляет абсолютную вели¬ 
чину числа. 

При компиляции слова АВ5 получится примерно следующий 
текст: 

адрес фрагмент текста комментарий 


1С55 

03 

41 

42 

53 строка 'АВЗ' 

1С59 

ЗА 

1С 


1СЗА=адрес предыдущей статьи 

1С5В 

СО 

Р0 

02 

передача управления интерпре¬ 
татору 

1С5Е 

ІА 

03 


031 А=адрес 011Р 

1С60 

ВВ 

03 


03ВВ = адрес 0< 

1С62 

12 

04 


0412=адрес РВКАЫСН 

1С64 

68 

1С 


1С68=адрес перехода по РАЬ5Е 

1С66 

01 

03 


0301= адрес ЫЕОАТЕ 

1С68 

02 

03 


0302=адрес ЕХІТ 


Рассмотрим, как 

выполняется слово АВЗ, 

если на стеке нахо- 

дится число —5: 



основной стек стек возвратов 

ІР 

—5 


0С76 \ 

—5 

0С76 

1С5Е 

—5 

—5 0С76 

1С60 

—5 

—1 0С76 

1С62 

На стеке лежит 

значение истина и, следовательно, РВКАЫСН 

передаст управление следующему слову: 

, 

—5 

0С76 

1С66 

Выполняется ЫЕОАТЕ: 


5 

0С76 

1С68 

5 


0С76 
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Если же на стеке будет лежать неотрицательное значение, то 
порядок выполнения слов изменится: 


основной стек 

стек возвратов 

ІР 

4 


0С76 

4 

0С76 

1С5Е 

4 4 

0С76 

1С60 

4 0 , 

0С76 

1С62 

На стеке лежит значение 

ложь и, следовательно, РВКАИСН пе- 

редаст управление по адресу, который записан вслед за этим сло¬ 
вом. Таким образом, ИЕОАТЕ не будет выполнено и управление 

получит сразу слово ЕХІТ: 



4 

0С76 

1С68 

4 


0С76 


Мы подробно разобрали, как слово АВ5 выполняется. Посмот¬ 
рим теперь, как оно компилируется, т. е. будем следить за тем, что 
делает Форт-система при обработке каждого из слов, входящих в 
определение АВ5. Для этого нам придется следить за стеком, ко- 
дофайлом и указателем НЕ'КЕ: 

слово стек НЕКЕ кодофайл 

1С55 

Слово : создает заголовок словарной статьи с именем АВ5 : 


АВ5 

1С5Е 

03 

41 

42 

53 

ЗА 

1С 



С^ 

Р0 

02 




Далее в 

кодофайл заносятся адреса 

слов 

ОИР и 0< 

ОШ* 

1С60 

03 

41 

42 

53 

ЗА. 

1С 



СП 

Р0 

02 

ІА 

03 


о< 

1С62 

03 

41 

42 

53 

ЗА 

1С 



СБ 

Р0 

02 

ІА 

03 

ВВ 03 


Слово ІР исполняется во время компиляции, так как имеет при¬ 
знак немедленного исполнения: 


ІР 

1С64 2 

1С66 

03 

41 

42 

53 

ЗА 

1С 

СО 




Р0 

02 

ІА 

03 

ВВ 

03 

12 




04 

00 

00 





NЕСАТЕ 

1С64 2 

1С68 

03 

41 

42 

53 

ЗА 

1С 

сэ 




Р0 

02 

ІА 

03 

ВВ 

03 

12 




04 

00 

00 

01 

03 




Исполняется слово ТНЕЫ. Значение НЕ'КЕ засылается по адре¬ 
су, лежащему на стеке (раньше по этому адресу были нули): 

ТНЕЫ 1С68 03 41 42 53 ЗА 1С СЭ 

Р0 02 ІА 03 ВВ 03 12 

04 68 1С 01 03 
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Исполняется слово ; . Компилируется ЕХІТ и создание статьи 
завершается: 

; 1С6А 03 41 42 53 ЗА 1С СИ 

Р0 02 ІА 03 ВВ 03 12 

04 68 1С И1 03 02 03 

ПРИМЕР РАБОТЫ ОПРЕДЕЛЯЮЩИХ СЛОВ 

На примере слова ССЖЗТАИТ рассмотрим технику создания 
слов-генераторов. Это наиболее сложный пример. Он предполагает 
некоторое знакомство с машинными командами. 

Итак, определим слово СОИЗТАИТ, при помощи которого мож¬ 
но задавать константы и с его помощью создадим две константы — 
ТКИЕ и РАЬЗЕ: 

: СОИЗТАЫТ СКЕАТЕ , БОЕ5 > @ ; 

— 1 ССЖЗТАМТ ТКИЕ 
0 ССЖЗТАМТ РАЬЗЕ 

При компиляции слова АВ5 получится примерно следующий 
текст: 

адрес фрагмент текста комментарий 

статья СОИЗТАИТ 

1С67 08 43 4Р 4Е 53 строка 'СОИЗТАИТ' 

54 41 4Е 54 


1С70 

55 

1С 


1С55 = адрес предыдущей 

статьи 

1С72 

СО 

Р0 

02 

передача управления интер¬ 
претатору 

1С75 

РА 

12 


12РА = адрес СКЕАТЕ 

1С77 

50 

10 


1050=адрес , 

14А0=адрес (ООЕ5>) 

1С79 

АО 

14 


1С7В 

СО 

Р0 

02 

передача управления интер¬ 
претатору 

текст АО 14 СО Р0 02 компи¬ 
лируется словом ООЕЗ> 

1С7Е 

50 

04 


0450= адрес @ 

1С80 

02 

03 


0302 = адрес ЕХІТ 

статья 

ТКИЕ 

1С82 

04 

54 

52 55 45 

строка 'ТКИЕ' 

1С87 

67 

1С 


1С67=адрес предыдущей 

статьи 

1С89 

СО 

78 

1С 

передача управления по адре¬ 
су 1С7В 

1С8В 

РР 

РР 


значение —1 


статья РАЬЗЕ 
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строка 'РАЬЗЕ 


1С8И 05 46 41 4С 
53 45 

1С93 82 1С 1С82 = адрес предыдущей 

статьи 

1С95 СО 7В 1С передача управления по адре¬ 

су 1С7В 

1С97 00 00 значение 6 

Посмотрим, как выполняется слово ТКІІЕ: 
основной стек стек возвратов ІР 

0С76 

Управление передается на адрес 1С89. По этому адресу стоит ма¬ 
шинная команда передачи управления с возвратом СО 7В 1С. При 
своем исполнении эта команда положит на основной стек адрес 
возврата 1С8В и передаст управление на адрес 1С7В: 

1С8В 0С76 

Далее управление получит режим САЬЬ адресного интерпре¬ 
татора. 

1С8В 0С76 1С7Е 

Выполнится слово По адресу 1С8В лежит —1: 

—1 0С76 1С80 

Произойдет возврат в Форт-систему по ЕХІТ: 

—1 / 0С76 

Таким образом, мы на стеке получили значение —1. 

Теперь посмотрим, как слова-генераторы создают новые слова,, 
т. е. проследим, как выполняется текст: 

—1 ССЖЗТАЫТ ТРІІЕ 

стек стек возвр. ІР кодофайл 

—1 0С76 

Управление получает слово С(Ж5ТАЫТ по адресу 1С72: 

—1 0С76 1С75 

Слово СНЕАТЕ создает заголовок словарной статьи с именем 
ТКЕТЕ. Отметим, что слово : использует слово СКЕАТЕ для созда¬ 
ния заголовка: 

—1 0С76 1С77 04 54 52 55 45 67 

1С СБ Р0 02 

Компилируется значение константы: 

—1 0С76 1С79 04 54 52 55 45 67 

1С СБ Р0 02 РР РР 

Слово (ПОЕ5>) присваивает новое значение адресу интер¬ 
претатора (это адрес 1С7В, непосредственно следующий за 
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(ООЕ5>) — на него указывает ІР) и само выполняет ЕХІТ, тем 
самым заканчивая исполнение слова ССЖ5ТАМТ: 

—1 0С76 04 54 52 55 45 67 

1С СО 7В 1С РЕ РР 

Управление возвращено Форт-системе. 

РЕАЛИЗАЦИЯ ЯЗЫКА ФОРТ 

Форт с момента своего появления в начале семидесятых годов 
прошел большой путь от специализированного языка для управле^ 
ния радиотелескопом до универсального средства, на котором в 
•настоящее время пишутся трансляторы и базы данных, видеоигры 
и экспертные системы. Особенно большое распространение Форт 
получил при решении задач реального времени; здесь оказались 
важными такие его характеристики, как высокая скорость, диалого¬ 
вый режим работы и возможность настраиваться на работу с лю¬ 
бым оборудованием. 

В нашей стране ведутся активные работы по использованию 
языка Форт, охватывающие все перечисленные области его приме¬ 
нения; созданы самостоятельные реализации языка на большинст¬ 
ве отечественных ЭВМ и серийно выпускаемых микропроцессоров. 
Создана аппаратная реализация языка Форт, представляющая со¬ 
бой специализированный процессор, непосредственно исполняющий 
фортовские слова как машинные команды. Такие Форт-машины 
очень эффективны. Их скорость достигает миллиона и более команд 
(таких как 5\УАР, +, САЬЬ, ЕХІТ и другие) в секунду. 

Перечислим некоторые распространенные в нашей стране Форт- 
системы. 

Единый Форт для К580, К1801, К1810. Система разработана 
С. Б. Кацевым, В. А. Кириллиным, А. А. Клубовичем и Н. Р. Нозд- 
руновым (Ленинградский университет, НИИсчетмаш) и представ¬ 
ляет собой единую реализацию языка Форт для микро-ЭВМ и мик¬ 
ропроцессорных устройств на базе микропроцессоров серий К580, 
КІ801, К1810 и специализированного высокопроизводительного 
Форт-процессора. Система установлена на следующие микро- и 
мини-ЭВМ: ЕС-7970, СМ-1800, «Роботрон», К1, КТС ЛИУС, КУВТ 
«Корвет», ПЭВМ «Сура», СМ-3, СМ-4, ДВК, «Электроника-60», 
ЕС 1840. 

Форт-ЕС. Система разработана С. Н. Барановым (Ленинград¬ 
ский институт информатики и автоматизации АН СССР — 
ЛИИАН) для ЕС-ЭВМ. Работает под управлением операционных 
систем ОС ЕС и СВМ ЕС. 

Астро-форт. Система разработана И. Р. Агамирзяном и 
Г. М. Шуваловым (Институт теоретической астрономии АН 
СССР — ИТА АН СССР, ЛИИАН) для ЭВМ ЕС 1840. Ее отличи¬ 
тельной особенностью является поддержка многоэкранного режи¬ 
ма работы. 
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Форт-«Искра-226». Система разработана А. Ю. Болдыревым, 
Н. Н. Веретеновой, Г. В. Лезиным, Е. Ф. Силиным (Институт со¬ 
циально-экономических проблем АН СССР) и представляет собой 
развитую операционную систему на базе языка Форт. 

Форт-М6000. Система разработана В. Н. Патрышевым (Ленин¬ 
град) для ЭВМ М6000. Работает как под управлением операцион¬ 
ных систем ДОС РВ и РТЕ-2, так и без операционной системы. 

Форт-БЭСМ-6. Система разработана И. Р. Агамирзяном (ИТА 
АН СССР, ЛИИАН) для ЭВМ БЭСМ-6. Работает под управлени¬ 
ем операционной системы ДИСПАК- 

Форт-«Эльбрус». Система разработана А. Е. Соловьевым (Ле¬ 
нинградский университет) для МВК «Эльбрус». Работает под уп¬ 
равлением ОС «Эльбрус». 

ПРИЛОЖЕНИЕ К. ТАБЛИЦА КОДОВ КОИ-8 

В этой таблице приводятся символы, входящие в стандарт ко¬ 
дировки КОИ-8. Строки таблицы соответствуют левым половинам 
байтов изображенных символов, столбцы — правым. В шест¬ 
надцатиричной системе счисления, например, символ ? имеет код 
ЗР. 
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